PC World 2005 November/PCWorld_2005-11_cd.bin/akce/cleandiskse.exe/{app}/cleandisk.exe/0/RCDATA/TDLGNEWS/TDLGNEWS.txt

Text File | 2005-09-16 | 3KB | 148 lines

object dlgNews: TdlgNews
  Left = 274
  Top = 106
  BorderStyle = bsDialog
  Caption = 'Special Offers'
  ClientHeight = 224
  ClientWidth = 438
  Color = 13162455
  Ctl3D = False
  ParentFont = True
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 561
    Height = 209
    Shape = bsFrame
  end
  object OKBtn: TButton
    Left = 247
    Top = 180
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 0
    OnClick = OKBtnClick
  end
  object CancelBtn: TButton
    Left = 335
    Top = 180
    Width = 98
    Height = 25
    Cancel = True
    Caption = 'Remind Me Later'
    ModalResult = 2
    TabOrder = 1
    OnClick = CancelBtnClick
  end
  object FlatGroupBox2: TFlatGroupBox
    Left = 24
    Top = 16
    Width = 409
    Height = 155
    Caption = 'Receive Free Information'
    TabOrder = 2
    object Label3: TLabel
      Left = 6
      Top = 131
      Width = 386
      Height = 12
      Alignment = taCenter
      Caption =
        'Privacy Policy: Your e-mail will not be sent to any other compan' +
        'ies nor to other third parties'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object Label2: TLabel
      Left = 5
      Top = 28
      Width = 92
      Height = 13
      Caption = 'Your email address:'
    end
    object Image3: TImage
      Left = 42
      Top = 53
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image000.ico>}
    end
    object Label1: TLabel
      Left = 88
      Top = 64
      Width = 185
      Height = 13
      Caption = 'Keep me informed of HS CleanDisk Pro'
    end
    object Label4: TLabel
      Left = 88
      Top = 96
      Width = 221
      Height = 13
      Caption = 'Keep me informed of other HAYSOFT products'
    end
    object Image1: TImage
      Left = 42
      Top = 93
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image001.gif>}
    end
    object edtEmail: TEdit
      Left = 104
      Top = 22
      Width = 169
      Height = 19
      TabOrder = 0
    end
    object chkHaysoft: TFlatCheckBox
      Left = 16
      Top = 94
      Width = 17
      Height = 17
      Caption = 'FlatCheckBox1'
      Checked = True
      TabOrder = 1
      TabStop = True
    end
    object chkFtpExplorer: TFlatCheckBox
      Left = 16
      Top = 54
      Width = 17
      Height = 17
      Caption = 'FlatCheckBox1'
      Checked = True
      TabOrder = 2
      TabStop = True
    end
  end
  object HTTPGet1: THTTPGet
    AcceptTypes = '*/*'
    Agent = 'UtilMind HTTPGet'
    BinaryData = False
    URL = 'http://www.haysoft.com/hs/untpostnews.php3'
    UseCache = False
    WaitThread = True
    OnProgress = HTTPGet1Progress
    OnDoneString = HTTPGet1DoneString
    OnError = HTTPGet1Error
    Left = 272
    Top = 16
  end
end